mE n 
now selling at $ 


VZDU # 25 JULY / AUGUST 1990 


HHHHHHHHHHEHHE — On 


Fey at тишини cae a" alas ft 
—** нн экон T 


DOWN UNDER CLUE 






Editor | | Treasurer 
Harry Huggins Коп Allen 

12 Thomas Str. | 2 Orlando str. 
Mitcham. 3132. Hampton. 3188. 


05-875 1408 |. 03-598 4554 


Nose to the grindstone again. You surly are tyrants. | 

First а correction. I listed DISKMAG as Drysdale Av. It actually is 
Dugdale Ау. but Jason advises that he prefers to use his P.O.Box 600. 
Taree. NSW. 2430. | 


I also missed out last issue, advising you that the longest running 
Newsletter, and one of the first, has ceased operation. This was John 
D'Alton and LE'VZ 200K300 OOPS. we all regret this closure, as we are 


getting thin on the ground. 


Now some good news for HACKERS. DSE had a few VZ300s with various 


faults. Yes even VZeds have faults. I have bought the lot. So any hacker 
that wants a 300 to operate on, send me $20, and you have bought yourself a 


bargain(?). Even if you don't restore them, you will learn a lot and the 
keyboards are a direct replacement for the VZ200 keyboard. John told me 
recently, that he has only just switched from the 20060 300. _ 

There are still some VZ articles available. Joysticks and both 200 and 
300 expan. memories; disk drives at $99; controllers at $39.95; Wordproc 
cartridges; and printer interfaces. Some oddments of game tapes. The 
printer interface is a good buy at $9.95, for any hacker that has ideas of 
controlling from the VZ. You get the case with it's connector, a bit of 
cable anda centronics plug. That is about the limit of what is available. 
Anyone, wanting the extended basic or dos eproms, get in touch with Joe 
Ве аё HVVZUG. Address under Other Clubs. 


or a cheap printer, should consider the Brother M1109, 


An nvone  looki fo 
90. I used one for years, and had good service from it. 


ee 94 — ~ - 
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It is still in use. 


POSTAGE. We are glad to lend our library tapes out,and let you have 
access to the back issues, but you must send postage. Some do and some 
don't. «In the future, if you don't receive an expected tape, consider if 
you have sent postage. It is becoming a big item, and is going to become 
bigger in a month or two. NE 


In issue 23 I printed а method of rescuring а lost file. I used that to 
retrive а club list of over 190 members, with their records. I got 186 of 
them. This month, we publish a similar function for tape users, sent to us 
by Michael Maconald. Thanks Michael. 

Also another program from Peter Ross. It is endlessly expandable,and 
very well thought out. Quite an accomplishment for his age. All the 
basework is there. F У 

And for those that plug printer /joystick in/out and finish up with 
loose connections, there is a hardware article for you too. 


Cheers, | f 
| NEF 








с КЕТ) RESCUE DOOMED PROGRAMS 


By Michael MacDonald 


Tape users were no doubt envious, when they read the article on 
using the DISK EDITOR to rescue a "lost" program from disk. 


Now Michael has sent us а proceedure to rescue a program from 
TAPE. | | | 


Good Fishing! (ed) 


Ever had one of those days where nothing seems to work and the 
program you saved only yesterday seems to have fallen into the black 
hole for lost programs? And after spending the rest of the day being 
totally infuriated by not being able to reload your program. | 

Every time you try you are plagued with the same old result, 


"LOADING ERROR" 


By now you're so angry you give up and start to type it all in 
again! But STOP! There's no need to do that. 
You can rescue that doomed listing. HERE'S HOW! 


(i) First, load up the program (don't worry about the loading 
error) just ignore it. 


(11) Now, list the program. If the program lists fully (or 
nearly) without throwing a mental attach all is not lost. This may 
have happened before. It is quite amazing how a program loads in, 
lists but when run throws a tantrum, flashed crazily or just locks up. 


(iii) Now type in this command | 
PRINT PEEK (30884) ; PEEK (30885) 


This will print out the LSB (least significant Byte) and MSB 
(most significant Byte) values present in the Start of Basic program 
pointers. . The values will give you the address at which your program 
starts; e.g the computer printed out 233 122. This means 
122*2564233-31465 is the start of your program. dE 7 


(iv) Now if you type in 
PRINT PEEK (30969) ; PEEK (30970) 


This will print out the values present in the END of BASIC 
Program Pointers and will tell you the address of the end of the 
program using the same technique above to find the address. 


(v) But, you'll notice that this value is not very much greater 
than the Start of Basic pointer. What has happened is that the 
computer has read most of the data of the program but something has 
stopped the computer reading the last pieces of information which 
containd the values for the end of the program address. 


It may now seem easy to fix the problem, just replace the 
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missing values into the pointers. But it's not. First you have to 


find the values of where your program ends. This is quite a laborious 


task. 


Type in 


FOR | I-(start of basic) | TO . (approx. guess) :PRINT 
CHR$ (PEEK(I));: NEXT | 


When you execute this the Screen will be filled with lots of 


_ strange characters and mumbo jumbo but occasionally ypu'll see and 


recognise a string of text out of your program. When the search 


passes the “program you'll know because there'll be less junk on the 


screen or it will have passed text near the end of the program. As 
soon as this happens, BREAK the execution and find the value of <<I>>. 


PRINT I 
This will show the address where your program roughly ends. 
(vi) Now you must find the LSB and MSB values. 
First type in | 
PRINT INT(I/256) 
This gives you the MSB. 
PRINT I - (MSB*256) 
And this gives you the LSB. 
(vii) Now POKE the values into memory. 
POKE 30969,LSB: - POKE 30970,MSB 
Hey Presto! your program may be rescued!! 


Caution :- If your program contains various machine code routines 


it may not work or even if it does'nt your program still may not do so 


cross your fingers and hope it does. 


The next step BEFORE running it is to list it and fix up any 
errors found in the listing that may have crept in. Then quickly save 
it. Now type RUN and your worries may be over. 


Alternatively if à program is saved over a chewed section of tape 


the portion before the chewed bit can be rescued by BREAKing before 
the LOADING ERROR and doing the same process as above. 


| I hope this article has brought you back from the depths of 
despair and has got you programming again. 
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AROUND THE WORLD 


BY PETER ROSS 


5 GOTO 5140 






10 COLOR4, O: CLS: PRINT:PRINT" РЕТЕК КО 
SS AND THE" | 

20 PRINT: PRINT" 

30 PRINT". | lom bs Тен 

40 PRINT" н БИНТ ШЕШЕ 

50 FRINT* ЕЕ 0 р 

80 PRINT": | У тн и ~ ~ | 

70 PRINT" ee 

80 FRINT: PRINT" PERSONAL COLOUR COMPUTE 
R | 


20 PRINT:PRINT" . PRESENTS 
95 FORX=1T03000: NEXT: 5070130 

150 CLSsFRINT 

140 COLORS: PRINT: PRINT: PRINT 








150 FRINT" T — —— 

160 PRINT" Fa" aT ПИ 1. ки |“ 
170 FRINT® Pare Rie iret lt EDIC 
180 PRINT" ни ee | 
190 FRINT" 

200 PRINT" Г.ч wt РГ. 

210 FRINT" IMIBI"JENI 

220 PRINT" LL LS Um 


230 PRINT" 
235 FÜRZ-1T02000: NEXT: 6070550 

270 COLORS: MODE (1) 2 А=—1 

271 COLOR2:SET (56, 15) : ЗЕТ (57, 15) : SET (58, 15 
)tSET(59,15) 


. 272 COLOR2s SET (40,15): SET (41,15) : SET (62, 15 


^»:SET(63,19) . 

273 COLOR2: SET (44, 15): SET (68, 15) : SET (66, 15 
) :БЕТ (67,15) 

274 SET (48, 15) sSET (69, 15) : ЗЕТ (70, 15) : БЕТ (7 
1,15): COLORS 

280 AzA*i:SET(A,62): ТРА=127 THENGOTO300 

290 GOTO 280 

300 А=0:В=43:С=1:0=42 

510 Azát2:BzB-1:Cz2C42: D=D-1:SET(C,D) : ЗЕТ (А 
sB): IFA=S4THENGOTO 53 
520 5070510 

330 82127: В=45:(=126: D= 
540 A=A-2: B=B-1:3C=C-2:D 
s B): IFA=73THENGOTOS40 
350 GOTO 340 

360 COLOR2: A=14: B=15 
370 C=C+1sA=A+t3: В=В+ 
[FC=32THENGOTO 590 
580 RESET (112, 54) : БОТО 370 

390 СО. 0К4: А=128: В=127 

400 B=B-1: SET (В, 25) : ЗЕТ (B-1, 63) : ЕТ (В-2, 43 
):СЕТ(В-5,62) 

410 SET(B-4, 61) : ЗЕТ (B~4, 60) : SET (B-4, 59) c SE 


42 
-D-1:SET(C,D) : ЗЕТ (А 


С=0 
SET (A, 34) : ЗЕТ (В, 56) : 


s 
" 
5 


420 SET (B-4,556) : SET (B-3, 55) : SET (B-2,54) : SE 
T(B-1,53) :5ET(B-1,52) 

450 SET(B-1,91): SET (B-1,50): SET GG, 49) : RESE 
Т‹В-2, 52) 

440 RESET (B- -5.62): RESET (B-5, 61) sRESET (B^5, 

40) : RESET (B- 3,59) 

450 RESET (B-3, 58) : RESET (B-3, 57) : RESET (B-2, 
54) : RESET (В- 1, 59) 

460 RESET (B, 52) : RESET (B, 52) : RESET (B, 51) : КЕ 
ЗЕТ (B, 50) : ЗЕТСВ, 63) 

470 SET (B-2, 62) : ЗЕТ (B-2,653): RESET (B- QA 
IFB-4THENGOTO 531 

490 GOTO 400 

500 “COLOR2:SET (54, 15): SET (97, 15): SET (58,1 
S):SET(359,15) 

510 *COLOR2: SET (60, 15) SET (61, 15) : ЗЕТ (62,1 
S): ЗЕТ (65, 15) | 

220 *COLOR2s SET (24,15) : ЗЕТ (45, 15) : БЕГ (65,1 
5) :Б5ЕТ (67,15) 

550 "БЕТ(68,15) : ЗЕТ (49, 15) s ЗЕТ (70, 15) : SET ¢ 
71.15) 

551 IFUR=STHENSOUND3S1,1:COFY 

S32 FORI=1T01000s NEXT 

540 GOSUB 550 

545 GOSUB 850 

550 COLORZ: МОРЕ (1) : ЗЕТ (20,20) sSET (21, 
ЕТ (22, 20) : ЗЕТ (23, 20) 

560 ЗЕТ (24,20): SET (25,21) : ЗЕТ (25, 22) : SET (2 
|| 

570 ЗЕТ(27,25): ЗЕТ (27,26): ЗЕТ (19, 21) : SET(1 
9.22): SET (19, 23) 

580 SET(19, 24): ЗЕТ (19,25): ЗЕТ (17,26): SET(1 
9.27): SET (19, 28) 

590 SET(19, 29): SET (20,50): SET (21,51) : ЗЕТ (2 
2,52): 5ЕТ (23,52): 

400 ЗЕТ (24, 52) : ЗЕТ (25,32) sSET (24,22) sSET(2 
7.32) :8ET (28, 27) 

610 SET (28,32): аи SET (29,- 
0,27): ЗЕТ (30, $2 

620 SETCS1,27)1: T 32) : SET (32,27) : SET (3 
2,32) :SET (33, 27) 

630 SET(33, 32): SET (34,27) : SET (34,32): SET(3 
322/11 ЗЕТ (35, 32) 

440 SET (36, 27): SET (36, 32): SET (37, 32) :SET(S 
7.27): SET (58,52) 

650 ЗЕТ (58,27): 5ЕТ (59,27): SET (39,52): ЗЕТ (4 
0,32) sSET (40,27) 

660 SET (41, 27) : ЗЕТ (41, 322 : ЗЕТ (41, 33) : SET (4 
0,33) : SET (39, 34) 

870 SET(38, 35) : SET (37, 36) : SET (34,37) : ЗЕТ (5 
5.358): SET (34, 39) 

680 SET(33,40) :5ЕТ (52,41) : БЕТ (31,42) z SET (5 


20):5 


32) sSETC 


ы 


a 


692 SET (34,42) : ЗЕТ (35, 42) : SET (36, 42) : SET (2 

7,442): SET (B, 42) 

70Q SET (39,41) : ЗЕТ (40,40) : ЗЕТ (41, 

2,254): ЗЕТ (45, 37) 

71O SET (44, 36) SET (45, 35) : SET(46, 34) : SET (4 

7,253): SET (48, 52) 

72 SET (48,55) SET (49, 32) t SET (50, 32) t ЗЕТ (5 
1,22) sSET(S2,32) |. 

"no SET (53,52): SET (54, 52) : ЗЕТ (55, 51) : ЗЕТ (5 

6,1) 2 SET (57, 30) 

740 SET (57,29) : БЕТ (56, 28) : ЗЕТ (55, 27) : SET (5 

4,27) 2 ЗЕТ (55, 27) 

750 ЗЕТ (52,27) ЗЕТ (51, 

9, 27) 2 SET (48, 27) 

720 SET (47, 27) : БЕТ (46, 27) : ЗЕТ (45, 27) t SET (4 

4,27) :521(45,27) • 

770 SET (42, 27) : ЗЕТ (45, 26) : ЗЕТ (46, 25) : SET (4 

7,29: SET (48, 23) 


A9) :SET (4 


37) s SET (50, 27) s SET (4 


780 SET(49,22) : БЕТ (50, 21) :SET (51, 20): BET (5 


2.19) :SET(51, 18) 
790 ЗЕТ (55,18): ЗЕТ (54, 18) : ЗЕТ (55, 18) SET (5 
6, 18) :5ЕТ (57, 18) | | 
800 ЗЕТ (52,18) SET (58, 19) : БЕТ (57, 20) : ЗЕТ (5 
6,21 2SET(55,22) ——— 
810 ЗЕТ (54, 25) SET (53 
1,24) :5ЕТ(50,27) . 
820 ЗЕТ (28,29) sSET (52,29) : ЗЕТ (54, 29) sSET (4 
0,29): ЗЕТ (44,29) — 

850 ЗЕТ (48, 29) sSET (52, 29) : ЗЕТ (54, 29) : 

851 AS=INKEY$: A$=INKEYS 

852 IFA$="A" THENGOTO2910 

82% IFA$="V" THENGOTOSSO | 

54 IFA$z"I"THENGOTO1470 

840 IFA$="B" THENGOTOL700 

841 IFA$="C" THENGOTO2140 

842 IFAS="F" THENGOTOL 300 

842 IFA$="G" THENGOTO1110 
844 IFA$="T" THENGOTO2400 

847 IFA$="F" THENGOTO270 

848 GOTO831 » 

850 MODE (1) 

840 A-0 

870 А=А+1: SET (A, 63): IFA=127THENGOTOR90- 

880 GOTOB70 


,24) : БЕТ (52, us SET C3 


890 &-63 
900 A=A--1:SET (20,6): 5ЕТ (100, 8): IFA-ZOTHENG 
070 920 

910 65070900 

920 б=20:В=50:С=100:р=50 

950 A=A+2:B=B-1:C=C-2: ЕТ (A, В) SET (С, B): IF 


zó0THENGOTO 930 

940 GOTO 930 

950 A=10 

960 А=4-1: ЕТ (959, А) : SET (40, A): SET (61, 0): IF 

дс-ОТНЕМО0Т70980 

970 6070960 

980 4=54 | 

990 а=А+1:5ЕТ (А, 4) : БЕТСА, 5): IFAZ6STHENGOTO 
1010 


1000 6070790 : 

1010 БЕТ (21,10) : SET (59,10) c A- ZB: B=50: . 
1020 A=44 

1050 А=А-1:5ЕТ (50,8): ЗЕ Т(70. Ads IFA=4S5THENG 
OTO 1050 

1040 GOTO1030 

1050 SET(S1,44): SET (469, 44) : SET (52, 45) : SET ( 
88,43): ЗЕТ (55,42) 

1040 SET (67,42): ЗЕТ (54,41) : SET (66,41) : ЕТ 
95,40): 

1070 SET (56,40): SET (57, 40) £SET (58,40) : SET ¢ 
939.40): SET (60,40) 

1080 SET(61, 40) : БЕТ (62, 40 : SET (63, 40) : SET( 
64,40) : 5ЕТ (65. 40) 

1081 IFUR=STHENSOUND31, 1: СОРУ 

1090 FORI=17T04000: NEXT 

1100 605ЏЕ550 

1110 COLOR4:MODE (1) : А=-1 | 

1120 А=А+1: SET (45,8) SET (45, A) 5ЕТ (65,8): 5 
ЕТ (66, A) 

1120 IFA=49THENGOTOL150 

1140 60701120 

1150 A=46 

1170 АсАғ%1:БЕТ(А,2):5ЕТ(А,5) : ЕТ (A, 15) SET 
(6,12) | 

1180 SET (A, 24) : SET (4,25) : ЗЕТ (А, 39) z SET (A, 4 
0): IFA=465THENGOTO1200 

1170 GOTO 1170 

1200 A=0:B=62:C=0 

1210 C=C+1:A=A+3: ВеВв-1: SET (A+1,8) sSET (A,B) 
: IFCZ18THENGOTO1220 

1215 6070 1210 

1220 A=109: Bz63:0-z0 

1250 C=C+1:A=A~3: BsB-1: БЕТ (А, В): SET (А-1, В) 
:IFC-18THENGOTO1250 — 

1240 GOTO1220 

1250 COLOR?2: 4-745: Bz45: С=0 

1260 A=A+1:B=B+1s SET (54, А) : SET (55, В): ТРА=6 
3 ГНЕМООТО 1280 

1270 GOTO 1240 

1280 IFUR=STHENSOUNDS1, 1: COPY 

1281 ҒОКІ-1704000: МЕХТІ 

1290 GOSUB 550 

1300 МОРЕ (1) sCOLOR2: 6-0 


1310 А=А+1:5ЕТ (CA, 65) : Теа=127 THENGOTO 1330 


1320 GOTO 1310 
1550 A--0:B-64 
1340 һ<А%1:ВВ-1: SET (A, E): IFA=43THENGOTO 1 


569 


1350 6 
13560 A 
1370 А 
90 
1580 GOTO 1370 

1390 A=43 

1400 A=A-1:SET(S7, A): ыы. А) : IFA=SOTHENG 
0701420 | 
1410 GOTO 1400 


~1:SET (A,B): IFA=64THENGOTOLS 


1420 A=56 


1450 &-A*1:SET(A, 50) : IFA=70THENGOTO 1450 
1440 GOTO 1430 

1450 IFUR=STHENSOUNDS1, 1: COPY 

1451 FORI=1T04000: NEXT 

1460 60608520 

1470 COLOR4: MODE (1):670 | 

1480 A=At+LESET (A, 632 : IFAZ127THENGOTO1500 
1490 60701480 


1500 А=40: B=87:C=63: D=0 | | 
1510 A=Ati:B=B-1:C=C-1:D=D+1:SET (А, С) :SET( 
B,C): IFA=460THENISS0 | 


1520 GOTO 1510 
1550 B=43 


1560 EzB-1: SET (60, В) : ЗЕТ (67, В): ТЕ В= -АТНЕНБО | 


TO1580 

1570 GOTO 1540 

1580 ЗЕТ (61,5): SET (66,3): SET (42, 2) : ЗЕТ (45, 
2): SET (63,1): SET (44,1) 

1590 SET(63, 0) : ЗЕТ (64, 0) 

1600 A=47 

1610 A=At1i:SET (08,44): IFA=78THENGOTO 1650 
1420 GOTO 1610 

1650 A=50sB=77:C=463: D=0 

1640 A=Ati:B=B-1:C=C-1:D=D+1:SET (A, С) :SET( 
В,С): IFD=10THEN1 660 | 
1450 GOTO 1440 

1669 SET (60,53) sSET (Ol, 
65,83) SET (64,53) 

1670 ЗЕТ (65,952) € : BET (566, 5 3) 

1480 IFURSSTHENSOUND31, 1: COPY 

1681 FORI=1T04000: NEXT 

1490 GOSUB 550 

1700 С010Е5:М0ВЕ(1):6-ғ0 

1710 а=8+1: ЗЕТ (A, 65) : ЗЕТ (6, 40) : ТРа= 127 ТНЕМ 
50701730 

1720 6070 1710 


55) 2SET (62,53) sSET ¢ 


1750 А=64 

1740 A=A-1:SET(O,A)sSET (127, A) : ҒА 40THENG 
070 1760 

1750 GOTO1740 

1760 &-55 4 


1770 б-Ағ1:БЕбЕТ (A, 40) : IFA=72THENGOTOI770 
1780 GOTO 1770 
1790 А=40: 

1800 A=A-1:SET¢ 
820 

1810 GOTO 1800 
1820 Ах52 

1820 A=A+1:SET (A, 25) : IFA=73THENGOTO1850 
1840 GOTO 1820 

1850 а=65 

1860 А=а–1: ЗЕТ (11, 6) : ЗЕТ (21, A) : ЗЕТ (21,8) :5 
ET(41, A) sSETCS1, A) 

1870 SET (117, а) :SET(107, А) : SET(97, А) : SET (8 
7,8) : SET (77, A) 

1880 IFA-40THENGOTO 1700 

1870 GOTO 1850 

1900 A=0: B=127 

1910 A=Ati:B=B-1:SET(A, 51) : SET(B, 51) : IFARS 


53 А): ЗЕТ (75,8): IFA-25THEN1 


1920 RESET (76,51) :60701910 

1950 RESET (76,51) 

1940 C=43:COLOR2 

1950 C=C-1:SET(S4,0)sSET(73,0): EFC=49THENG 
070 1970 

1940 "d 1950 

1970 A=S 

1780 A= t SET (6,49): xii 
1990 60701980 

2000 A=63 | 

2010 АғА-1:5ЕТ (65, A) : ЗЕТ (64,4) = ZFA=49THENG 
0702050 

2020 60702010 

2050 Ағ25 | 
2040 A=A-1: SET (57, А) :8ET (58,4) : IFA-10THENDG 


ото 2060 


2050 GOTO 2040 

2060 COLOR4:SET (59,11): 
1): 5ЕТ (62,11) 

2070 SET(63,11) : ЗЕТ (64, 11): СЕТ (65,11): SET ¢ 
66,119: SET (47, 11) 

2090 SET (47, 12): SET (47, 15) £5ET (47,14) 2 SET ¢ 
67,15) sSET (47,14) | 

2100 5БЕТ (59,17): ЗЕТ (40, 17) SET (461,17) = SET ¢ 
62,17): 5ЕТ (63,17) 


SET (60, 1 1) :SET (61,1 


2110 SET(64,17) : БЕТ (65, 17) SET (46,17) : БЕТС 


67,17) 

2111 IFURZSTHENSOUNDZ1, 1: COPY 

2120 FORI= 1704000: NEXT 

2150 GOSUB 550 

2140 МОВЕ (1): COLOR4: А-0 

2150 а=а+1: ЗЕТ (4,65) : IFA- 127THENGOTO 2170 
2160 GOTO 2150 

2170 б=65 

2180 A=A-1:SET(20, A) БЕТ (100, А) s IFA=30THEN 
GOTO 2200 | 

2190 GOTO 2180 

2200 A=20:B=30:C=100:D=30 

2210 A=At2:B=B-1:C=C—-2: ЕТА, В) sSET(C,B)eI 
FA=60THENGOTO2230 | 
2220 GOTO2210 

2230 A=10 


2240 А=А-1:5ЕТ (99,4) : БЕТ(60,4) : СЕТ (61,8): 1 


FAzOTHENGOTO2260 
2260 SET(101, 30) : SET (19,50): SET (18,29): SET 


(102,29) 


2590 ЗЕТ (105, 
1 (18,28) 

2400 SET (18, 27) :SET (102,27) : БЕТ (18, 26) : SET 
(102, 24) 

2410 SET (17,26): SET (103, 26) SET (104, 27) : SE 
T(16, 27) 

2420 A=20 

2470 AZAtLESET (A, 30) : ЗЕТ (А, 58) : IFA=LOOTHEN 
60702450 

2440 60702450 

2450 SET (30,32) tSET (51,52): SET (52,52): SET( 
23,32) ЗЕТ (51,55) 


29) :BET (17,29) : ЗЕТ (102, 28) : SE 


2460 SET (35,55 YESET (34,53)  БЕТ(21, S4): SETC | 


5 


, 9470 SET(31,35): а $3) SSET(S 1,56): SET ¢ 


70,36) — 


2480 ЗЕТ (66, 52): SET (61: 35): 5Е1 (61, 54) sSETC . 


40, 34) : ЕТ (42, 35) 
2490 ЗЕТ (60, 55) s ЗЕТ (59, 54) : ЗЕТ (61, 56) 

2500 ЗЕТ (85, 52) : ЗЕТ (84, 35) : ЗЕТ (85, 55) : SET ( 
84, 54) : ЗЕТ (85, 54) 

2510 БЕТ (86, 34) : ЗЕТ (85, 55) : ЗЕТ (84, 56) :A=43 


2520 A=A-1:SET (36,8) : ЗЕТ (70,8): IFA=45THENG 


070 2540 
2550 GOTO 2520 

2540 А=55 0 

2550 AzA*l:SET(A, 45) : IFA=70THENGOTO2570 
2540 GOTO 2550 , 

2570 IFUR=STHENSOUND21, 1: COPY 

2580 FORI=1T04000: NEXT 

2590 50508550 

2400 COLOR4: МОРЕ (1) : А=0 

2610 Аа=А+1: ЗЕТ (А, 65) : ТРА=127ТНЕМСОТО 2630 
2620 GOTO 2610 

2630 A-&3 

2640 А=А-1:5ЕТ (54, А) : ЗЕТ (70, А): IFA-OTHEN 2 
560 

2450 GOTO 2440 

2640 A=56 

2670 А=А+1: ЗЕТА, 0): IFA=70THENB=0:G0TO 269 
0 

2480 GOTO 2470 

2890 A=RND (65) 

2700 RESET (54, A) : SET (57, А) : В=В+1: ТЕВЕ} ОТНЕ 
NB«0: G0TO2720 

2710 60702490 

2720 A=RND (43) 

2730 RESET(70, A) 2 SET (49, A) : В=В+1: IFB=10THE 
NGOTO2750 

2740 GOTO2720 

2750 SET (40, 2) SET (41, 
2) :SET (64, 2) | 
2760 ЗЕТ (65, 2) : ЗЕТ (64, 2) : ЗЕТ (67, 5) s ЗЕТ (59, 
5): ЕТ (59,4) : ЗЕТ (44,9) 

2770 SET (47, 4) SET (59, 5) : ЗЕТ (47,5) : БЕТ (59, 
6) SET (47, 4) SET (66,9) 

2780 ЗЕТ (61,4) sSET (65, 4) : SET (59, 7) : SET (67, 
7) :БЕТ (59,8) : SET (67,8) 

2790 ЗЕТ (40,9) : ЗЕТ (61,7): SET (42, 9) : SET (45 
9) : BET (64,9) t ЗЕТ (45,9) 

2800 SET(42,10): ЗЕТ (42, 11) : ЗЕТ (62, 10) :SET( 
64,10) : ЗЕТ (62, 11) 

2810 SET (44,11): SET (61, 13) :SET(41, 14) :8ЕТ‹ 
&5,14):SET(45,150 — 

2820 ЗЕТ (62,20): ЗЕТ (62, 21) s ЗЕТ (66, 22) : ЗЕТ 
66,23) 

2820 SET (462,33) SET (62, 54) s SET (45, 34) sSET( 
65,35) :C=0 | 

2840 А=ЕМр (45) : B=RND (48) 

2850 IFA<12THENGOTO2840 

2860 IFBZSBSTHENGOTO2840 

2870 ЅЕТ (В, А) 

2880 С=С+1: IFC=20THENGOTO2900 


2) : ЗЕТ (62, 2) : SET (43, 


2870 GOTO 2840 

2900 IFUR=STHENSOUNDS1, 1: COFY 

2901 FORI=1T02000% NEXT 

2905 50518550 

2910 MODE (1): A=222COLOR4 | 

2920 A=At2:S5ET(A, 10): IFAZ104THENGOTO 2940 
2950 60702920 

2940 А0: B=25:C0=0 

2950 A=A+1s B=B-1: SET (A, В) : IFA=1LOTHENGOTO29 
79 

2960 GOTO 2950 

2770 &Axát35:BzB-1:C- Ctl: SET (4, B): IFC-ATHENG 
ОТО 2990 

2980 GOTO 2970 
4990 A=127:8=25:C 
3000 AzüA-1:B-B-1: 
C-0: GOT03020 
3010 GOTO 2009 
3020 A=A-3:B=B-1:C=C+1: SET (4, В) : IFC=4THENG 
070 2949 

3030 GOTO 2020 

3040 A=0 

5050 А=А+1:5ЕТ (A, 25) : IFA=127THENGOTO 2070 
2060 GOTO 3050 

5070 COLOR4: 

3080 A=0:B=58:C=0 

5090 C=C+1s A=A+2: B=B~1:SET (A+1, E) : SET (A, В) 
: [FC=33THENGOTOZ110 

35108 GOTO 5090 

5110 A=127:8=58:C=0 


0 


С=0+1: SET (A, B): ТЕС=ТОТНЕМ 


2120 C=C+1:A=A-2: B=B-1: ЗЕТ (A, В): ЗЕТ (A-1,B) 


: IFC233 THENGOTOZ140 
5150 50705120 | 
2140 IFUR=STHENSOUNDS1, 1: COPY 
5141 ҒОКІ=1704000: NEXT 

3150 GOSUB 550 

5160 CLS:MODE (0): PRINT@O, "PRENN 
3170 AS=INKEY$:A$=INKEY$ 

3180 IFA$="N" THENGOTO3390 

3190 IFAS="Y"THENGOTO3210 

3200 GOTO 3170 
2210 CLS:PRINT" 





~~: AROUND THE WORLDzX- 


3220 PRINT"AROUND THE WORLD IS А GRAPHICIA 
Ls | | 

3230 PRINT'TYPE OF GAME WHICH CAN BE USED" 
3240 PRINT"WITH A PRINTER.WHEN YOU SEE THE 
3250 РКІМТ"ЈЕТ ON YOUR SCREEN YOU CAN PRES 
5": 


5240 PRINT" СТЈ-МЕМ ZEALAND" 


5270 PRINT" LG1-NEW YORK" 
3280 PRINT" [LF]-EGYPT" 
3290 PRINT" LC1-CHINA" 
5300 PRINT" LR 1-LONDON" 
5510 PRINT" LII-FRANCE" 
3320 PRINT" CVI-ITALY" 


5350 PRINT" LA1-AUSTRAL ТА 





2540 
5250 
5560 
3370 
5580 
A390 


3400 


3410 
35420 
3430 
35440 
A450 
35460 
2465 
A470 
5480 
A490 


A300 


the VZ to pieces, you discover 


AROUND THE WORLD ---СОМТ 


PRINT" ГЕЈ-ЈАРАМ" 
PRINT" FRESS CC] TO CONTINUE" 
AS=INKEY$:AS=INKEYS 


IFAS$-"C"THEN3390 

GOTO 3340 | 
CLS:MODE (0) : РЕТМТ "дај 
АФ-ІМКЕҮФ: AS=INKEYS 
IFA$="Y"THENGOTO 2440 
IFAS="N"THENUR=101:GOTO10 

GOTO 3400 | 

CLS:F RINT: PRINT" PRINTER 

PRINT: PRINT" TURN YOUR PRINTER ON NOW. THE 
PRINT"PLACES WILL BE PRINTED OUT ON IT"::PEINT 
PRINT"MOST PRINTERS WILL NEED А PRINTER FATCH":PRINT 
FRINT: PRINT: FRINT: PRINT" PRESS Г51 TO START GAME 
A$=INEEY$: A$=INKEYS 

IFA$-"S"THENUR-5S:GOTO10 

GOTO 3480 | | 





ЛЕРА": РОЕХ=1Т0200: NEXT 


THINGS THE V.Z.GETS BLAMED FOR! 


A small extract from a letter:- 
Hhope it does'nt---- 
Does that at times. Stutter after a capital. 
all the V.Zs I have had. 


Has happened on 


Ed comment:- Only thing has'nt changed is the operator. 


it n slow motion. Press shift+H. Now let the shift up 


Do 
That made it stutter!. Only a case of not letting 


befor the Н. 


the right hand know what the left is doing. I do it a lot. 


WHY MAKE LIFE DIFFICULT? 


You want to plug іп an attachment to the VZ. Carefully going 
by the book, you switch the VZ off, then as an extra precaution 
you also switch off the power point. | 

You insert the attachment and switch on the VZ. The red light 
flashed on for a momentand then goes out! The VZ is as dead as a 
maggot. You switch it off, take out the attachment and try again. 
Still dead!  PANIC!! After checking the attachment and pulling 
that you forgot to switch on the. 
power point, and the flash of the red light was caused by the 
charge held in the plugpack. Back to square one. 


Also heard of a member who tapped his T.V. to get a monitor __ 


input, and then found the attachment he was going to use did'nt 
have a Monitor output!!!! | 


g 


GAMES COLUMN 


There is an apology to be made here. To all those who have sent in 
about the Public Domain Tape, I am sorry about the incredible delay but do 
not give up hope. You should receive the tape about the same time you are 
reading this, if not before. 


Thanks again to Harry for filling the space I left last issue. His 
advice is being taken here and I advise anyone else with similar expansion 
connection problems to do the same. 


AS usual, the VZ Games subject has been pretty quiet as of late. 
Interesting to note is David Wood's game-writing series which should be 
elsewhere in this issue. 


Take note of this! 


Games should be a way of relieving stress and having fun! Who knows your 
taste in games better than yourself? So write a game today, simple or 
brain-wracking, (it doesn't matter) and send it in to VZ Public Domain Tape 
to make your mark in computer games. There will always be someone else who 
will appreciate it. Write in NOW! (please!) 


The game to be playing this issue is ..... 
THE MAZE OF DEAD 


"A strange force surrounds you and you fall to THE MAZE OF THE DEAD." 
Isn't it always the way: If you haven't heard of this one before it's 
hardly surprising because this one's NEW. Yes finally a new adventure game 
. programmed by regular contributer to this column, Michael McDonald. As the 
name suggests, your playing area is a maze of very unfriendly dead people. 
In case you haven't noticed, dead people in computer games usually aren't 
friendly for some reason. Anyway, being a maze game, your object is to 
find your way out. Simple? Think again. | 


Some of the features of this interesting program include the idea of 
limited moves and having your inventory list constantly updated for you on 
the screen. The games vocabulary is fairly standard (ie. get, drop, use, 
etc.) so it is easy for anyone, beginners or 'experts', to play. It's good 
to see another person along with David Wood taking VZ games further than 
the old Dick Smith selection. | | 


This great piece of software will become available very soon on the VZ 
Public Domain Tape. Watch out for it! | 


RATING: 

*Vocabulary: 9 

*Puzzle Difficulty: 6 
*Atmosphere: | 8 
*Lastability: 7 
OVERALL. „а оова ia 6 and a half. 


| | HOT, HANDY & HELPFUL HINTS 
In order to attract more interest, I'd like to invite everyone to send 
in hints not only for adventures but for any other games as well. eg. 
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action games. | 4 


THE CURSE OF MERKFRUIT LODGE:* That piece 9o. paper is wrinkled! Better 
iron it out. Now where's that power point! 
* Why do the thin walls always get axed?!? 


KNIGHT'S QUEST: (Anyone else finished this one yet?) 
* You know how eating your vegetables make you big and strong? Well 
mushrooms don't abide by this rule. 

QUESTIONS & QUERIES 


PHAROAH'S TOMB:? David Wood needs to know what verb you use to place the 
jewels in the slot. He has already tried put, place, drop and insert but 
none seem to work. Can you help? 

Try PUSH or SHOVE (ed.) 


-HIGH SCORES! 
Yes, a change! 
ТЕМ PIN BOWLING 185 DAVID WOOD 


Bernice O'Mahoney's long standing record gets bowled over. Will she take 
revenge? 


That's about it. Again, I am very sorry about the PD Tape delay. I 
hope the high quality of software makes up for the wait. 


Please send all your hints, questions and answers in to: 
Paul Frantz 
25 Crocker St 
KIRWAN QLD 4817 


See you next Edition! 


The HIGH Scores 


DAWN PATROL 52500 _ David Wood 


CRASH 410 Harry Huggins 
DIG OUT 24400 Paul Frantz 
HAMBURGER SAM 39500 Stephen Frantz 
LADDER CHALLENGE > 22130 Paul Frantz 
KAMIKAZE 6710 Stephen Frantz 
TEN PIN BOWLS 185 David Wood 
VZ INVADERS 13990 Mitch Pendlebury 
GALAXON 150000 Nicole Huggins 
PENGUIN 1350 Jason Oakley 
LUNAR LANDER 3600 | Jason Oakley 
SUPER SNAKE | 811 Tim Oliver 
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XXxxx*xx DATABASES XXXXX 


Which is the best?? 
 - = = = = - 2222 22224. ДИ а 


There аге anynuaber around. 
points, and shortcomings! 


The best is the one that will do your work, and is 
understood by you. Setter still if you can alter it to be 
dedicated to the job in hand. 


Here is that prograa! 

Except for the sorting routine, which is M/C, (because 
basic is just too slow), it is all in Basic, and can be 
altered to your needs. Any part aay be left out, so you build 
it to suit yourself. 


This is the first of a 2 part series of databases. This 


part will read the disk DIR to datafile, where it can be . 


edited, sorted, saved and printed out. 
Part 2 will be a database with keyboard input, giving 
virtually unliaited fields, with all the above facilities. 


.. The skeleton of both аге the saae, so those only wanting 
the second part, can type in now the lines froa start to end 
af 300, and the VIEW routine. (700-785) 


10 КЕМ #44 VZDUDATA 1$ 30-65-90. by H.M.HUGGINS 

15 CLS:PRINT:PRINT: PRINT: 15720-25 | 

20 LOAD"YB^: ONLY"DE", "DI" THEN RUN 30 

25 REM IF PROGRAM BROKEN THEN TYPE <<6070 2005». DON'T RUN. 


We use Extended Basic to take advantage of some of the 
facilities made available by Russell Harrison’s 1B. However 
the original XB by Gerhart Woulf will also work. The 
advantage with the first is that a section can be loaded. 
This saves about 3K bytes. | 


30 CLS:60T0120:REM VIDUDATA 

Between here and line 120 is only saving and loading 
routines, that have nothing to do with the progras, until 
there is something in the file to need them. 
110 CLOSEG$: RETURN 

This is where we initialize the progras. The CLEAR and 
DIM settings have ta be adjusted ta suit your coaputer 
вевогу. . | 

Put in nominal entries as shown. RUN and press << X >>. 
Two nuabers will show. The left is free aeaory. The right is 
space reserved for strings by the CLEAR statement. The length 
af your strings will be about 25. Divide your free aemory by 
25. Dia for 100 less than that and CLEAR for DIM by 25. Now 
RUN and press X again. If you get OUT OF МЕМОВУ reduce the 
CLEAR and try. 
ABOUT 1000 in the left figure. For а V2300 with LOK EXP. you 
сап use 750 and 18500. 


You have to balance the 2 of thea and have 


115 КЕҢНЕН SET-UP пи 
They all have their good 15 REM Ни SET-UP ИИН 


120 (15:01 ЕВК1000:001085,0 125 DIMP$(100) 
150 Тед Радо Сад у =] А | 221: DRIVEL 
135 6$="NO NAME" 


190 REM UE НИ НЕ ИН 
200 РОКЕЗО7 77, 1:CLS:G0SUB110:PRINT@75, "MENU" 

205 PRINT: PRINT | 

210 PRINT" T= 55" DRIVE-":A 

215 PRINT" V-IEN"; ТАВ (15) "N-RITE" | 

220 PRINT" F-DELETE INDEX"; TAB(15) "X-MEHORY" 

225 PRINT" 1-04): ТАВ (15) "S-AVE" | 

230 PRINT* O-VER-RIDE T's TAB(15)"R-READ DIR” 2 
235 PRINT" D-STATUS-DIR"; TAB(15)"A-ALPH SORT" 
240 PRINT" P-LPRINT*;TAB(15) "T-SET DRIVE 

245 PRINT" E-DIT" 


The only things to clarify in the Menu is the 60508 110 
and the O-VERRIDE T. 


T is the Top of the File. Sorting is from 0 Т0 Т. If you 
don't want to sort the whole file, you alter T ta what you 
want. You aay also ADD or Delete i;teas with EDIT. This will. 
nat increase<< T so you have to use 0 to alter it. Also 
when you have coabined several files, and then loaded thea 
the(4 T >>has to be set to how many you loaded. 


5058 110 automatically closes a file you aay have 
forgotten. Such as if you only want a sample of a file. You 
start loading, and when you have a sample you use BREAK to 
stop it. This leaves the file open. You would type GOTO - 
200---NOT RUN---, and the 60508 closes the file for you. Very 
iaportant, else you aay type on for an hour, atteapt to SAVE 
and be greeted with DISK BUFFER FULL. If you can reaeaber the 
last file you had open, it’s only а aatter of typing <<Close 


CUR: RETURN >>, but which file! 


250 POKESO777, 35 

200 O$=INKEY$: Q$z INKEY$: ІР0%-" “ТНЕН255 
240 IFO$="A"THENGOSUBI100: SORT — 
265 IFü$z"D'THENSOS: DIR 


| 270 IFO$="E* THENGOSUB1000: 5070200: ‘EDIT | 
275 IFü$z"F'THEN1300:' DELETE INDICIES 


280 IFü$z'L'THENBS:'LOAD DISK 
283 [FG$="X"THENGSO: ' МЕМ 


-290 IFüSz'Q' THENSSO SET T 


295 IFü$z'P'THENAO0: ' LPRINT 

300 IFGS="R"THEN4O0’READ DIR 

303 IFG$="S"THENSO’SAVE DISK 

310 IFüSZ'T'THENS3S "ЗЕТ DRIVE 
315 IFG$="V"THEN7OOELSE255 :'VIEN. 


317 TFOS="M"THENZ00: " NENU 


| : 
| 1 1 320 [F0$- "И" ТНЕКУООЕ 56255: GOTO255: WRITE 


330 REM tititi UTILITIES пи 


335 CLS: INPUT"DRIVE 1 OR 2"; А: IFAZITHENSAQELSESAS 

340 DRIVE1:60T0200 

345 DRIVE2: 6070200 

350 CLS: INPUT*T-22*; T: 6070200 T 
355 CLS:STATUS: | 
360 PRINT:PRINT'HIT «D? OR <M) OR «S? OR <L)": GOTO 253. 


That, plus the VIEW in lines 700 plus is the skeleton of 
both parts. 


Now we will go onto the specialized routines. 


This section is the heart of this part. It will read the 
DIR of the disk, and put thea in DATA in the File. 


It uses the FILES command of the extended basic commands. 
First it displays the DIR on the screen, and asks if you want 
that disk in the file. ТЕ you decide YES then you type in the 
disk number, using 3 digets at least. Such as 001 025 100 
200. You вау add to that if you want to, as 005-а; 
005-a-music etc. and you вау copy the STATUS, which is 
displayed. It then goes on to list the dir as it is dataized, 
together with the type and length of file. All this is taken 
into one data line << P$(x) >). 

If you choose not to have that disk in the file, you 
answer N and hit RETURN. You are then asked for the next 
disk. | 


If you answer N and N you will be back in the MENU. Press 
V and it goes to the View routine and you are asked for 
start. If you press RETURN you will start from line 0. There 
will be nothing in line 0, but when you press SPACE it will 
scroll through the file. You will see it lists out :- 


1123 EXT BAS B 123-b 12547. 


| is the file nuaber. 123 is the echo of the first 3 figures 
you put in when reading the DIR. They are used to put the 
disks in numerical order, regardless of the arder you put 
thea in. 


Then there is the filename and the type. TBWODF 50 
ог whatever. 0 files (DATA) will not have a length shown). 


Then there is the disk nuaber 123-A. Then the length of 
the file. 


At the first viewing, the disks will be in the orderin 
which you presented thes. | 


Froa the MENU press A-LPHABETISING. Then VIEW again. Now 


you will find the disks in numerical order, and moreover the 
contents of each disk in ALPH. order. At this stage I suggest 
you SAVE the file. 


Now from aenu choose F-DELETE. You will be asked left ог 
right. Choose 1. Answer the start and end, and answer 3 and 


press RETURN. You will be back in MENU. View again and you 


will find those 3 figures before the file паве are gone. бо 
to MENU and press A-LPH. This tiae you when you VIEW you will 
find the whole file in ALPH. order. 


If you do not want the length in the file, use F-DELETE 
again. This time choose R answer start and end and answer 3. 
Press RETURN and when you VIEM you will see the HE hand 
figers are deleted. 


At any stage you aay save or printout. 


The left hand figures are also used for delete and insert 
of files. To delete go to EDIT and siaply delete all the 
ites. Nase,type and all the figures. Or replace the left 
figures with 999, Then SDRT again. 


To insert, pick a әгі after the end of the 
file.<€T+1}) Go ta EDIT and start at that number. Now type in | 
the nusber of the first 3 figures of the disk number you wish 
it to be in, together with all the other inforaation. 
Filenaae type disk no. and length if wanted. бо back to 


 MENU,use the 0 cossand and correct T to the new TOP OF РИК, 


You aayinsert as many as you like one after the other. When 
you sort it will take it’s place as indicated by the left 3 
figures. 


All this ofcourse is done before you delete those left 
figures. That is why 1 suggested you save beforehand. Then | 
you always have the original file to work on. 


400 БЕКЕН READ DIR пиши 

405 CL5: YDIRISTATUS: Т=Т+1 

415 INPUT'IF WANTED TYPE DISK NUMBER ХХХ"; A$: ІҒА4-““ТНЕН425 
420 INPUT" COPY STATUS"; В: CS-LEFTS (A$, 3) : 6070430 

425 PRINT'NEIT DISK?Y Н: INPUTY$: IFYS="* THEN4OSELSE200 


430 PSITI SES" "ТАНЫ... 2 
435 NEWDISK: F=0 

440 МЕРПЕНР) 

445 РР 

455 [FD$=""THENGOTOS00 

465 1Р0%=" *THEN449 


470 PRINT TYPES (0%); ТАВ (6): DS; 

475 IFTYPES(D4) z^ D'THENABOELSE. PRINTLENGTH(D$) :6070485 
480 PRINT'-":72$="-----"3T=T+1: 6070490 0 
485.  T=T+1:Z=LENGTH$ (D$) : V$=" А НИТИ 
6070490 

490 P$iTh=C$+" "4064" "+TYPES(D$) +" "АН" “IS 

495 ТРЕС120ТНЕН440 

500 PRINT"AGAIN : WW" 

505 K$zINKEYS:K$-INKEYS 

510 IFK$=""THEN405 — 

515 IFK$-'N'THEN200ELSES0S 


800 СІ: КЕМІТЕ LPRINT OUTPUT НОНИ 

605 "LPRINTCHRS (27) ; "М": 

610 INPUT"FROM/TQ" ; A, B: INPUT*TABIN) (0- -20-40-b2HAX)"3N 
615 РОКЈ=АТОВ 


12 


г 620 ТЕРА (I) "^" THENGSOELSE625 


825 LPRINTTAB(N)PS$ (J) 
850 NEXT 
855 INPUT"AGAIN Y/N"; Bs IFB$="N"THENZOOELSES10 


650 REMEEREEE MEMORY НИН 
655 CLS:POKE30862, 212: POKESOB53, 37 
рай PRINTUSR(X) ШАН CX 8) 
665 INPUT"MENU-RETURN" : X: 6070200 
700 ПЕНЕН VIEW ИНИНИ 
710 PRINT@O, "SPACE=+1:¢, 22-1: €: =START 
713 PRINT@32,"¢3>=EDIT F:A=ADDSE=EDIT 1: М=МЕМИ 
720 INPUT"START VIEW LINE NUMBER": 
125 PRINT'PRESS SPACE OR FULLSTOP OR COLON . 
735 POKE30777, LE PRINTY ; TAB (A) P$ CX) 
740 KS INKEYS: K$z INKEYS 
745 IFK$z"A*THENGUGUBBIS:PRINT"PRESS SPACE" 
750 IFK$z" "ТНЕМУ= +1: 6070735 
755 IFK$z": "ТНЕМС 5: 6070700 
760 IFK$z*; 'THENHz0: GOSUB1415: CLE: PRINT"PRESS SPACE" 
765 IFK$z"E'"THENBOSUBI010:PRINT"PRESS SPACE" 
770 [FK$z". "THENXzY- 1: IFXX1THENGOSUB. 785ELSE735: 5070753 
2775 IFK$="H" THEN200 
780 6070740 
785 X={:RETURN 
This next section allow you to add comments to any DATA 
line. Such as DISASS-H T xxx 25643 DISASS shifted to Hi 
Mes. In VIEW aode have the data you wish to add to on bottoa 
line. Press (452) and follow proapts. You can до to the next 
ites or back to VIEW mode. 


795 111111 ADDITION TO DATA И | 
800 PRINT:PRINT:PRINT"PRESS SPACE FOR NEXT LINE" 
805 PRINT*PRESS COMMA TO RETURN TO VIEW":G0T0830 
810 PRINT@384," ";"ADD UP ТО 100 CHARACTERS" 

815 PRINT:PRINT@417, у" "sP$(X) 

820 INPUTD$ 

825 ПР Т "+D$:60T0800 

B30 K$z INKEYS: K$z INKEYS 

835 IFK$=" "THENX=K+1:CLS:60T0915 

840 IFK$=", "THEN: CLG: RETURN 

845 5070820 


1000 REM НИ EDIT НІН? 

1005 CLS:PRINT:PRINT: INPUT"START AT?"5X 

1010 CLS: PRINT: PRINT 

1015 REM | | 

1020 PRINT'PRESS SPACE FOR NEXT ITEM | 

1025 PRINT'PRESS << . >>(STOP) FOR PREVIOUS" 

1030 PRINT"PRESS (€ , >> FOR RETURN:PRESS SPACE TO CONTINUE 
1035  PRINTS290," 


% 

1040 PRINT" | | 
1045 PRINT8290," СР" ' | 
1050 PRINT8255, '";"ENTER TEXT";" реј“ "у f 


1055 INPUT" ";P$(X) 
1060 K$=INKEY$:K$=INKEY$ 
1065 IFK$z* "THENX=X+1:G0TO1035 


1970 IFKS=", " THENK=X- = IFXCLTHENSOSUB1095ELSE1035; ТІЛІ: 


| 1075 IFK$=", "THENCLS: RETURN - 


1080 0701040 
1095 Х=1: RETURN 


~ о ч ~ — ә — w o -- - 


1100 REM и SORTING ННІ 


1105 DEFINT J-H,U-Y 

1110 CLS: POKE30777, |: PORESO779, 1:Р0КЕ30744,1 
1115 RESTORE 

1120 FOR 6-0 TO 112 

1125 READ D 

1130. POKE29400+6, D 

{135 NEXT 

1140 X=0 

1145 NeT 

1150 J=VARPTR(PS$(1)) . 

1155 POKE29200, PEEK (VARPTR (I) ) 
1150 POKE29201, PEEK (VARPTR (1) +1) 
1165 POKE 30862, 214 


1170 POKE 30843, £14 


1175 X=USRIN) | 

1180 6070200 

1185 DATA205, 127, 10,253, 229, 229 

1187 DATA 193, 221,42, 16,114 

1190 DATAL97, 221,229, 253, 225, 197, 253 
1193 DATA 35,253, 35, 253,35 — 

1195 DATA221, 70, 00,253, 78,00, 221, 110,01 
1197 DATA 221, 102,02, 253, 94, 01 

1200 DATA253, 86,02, 26, 190,54, 11 

1203 DATA 32,45, 19,13 | 

1205 DATA40,05, 35, 16, 243,24, 34, 221,70 
12080АТА 00,221, 110, 01,221, 102,02 

1210 DATA253, 78,00, 253,94, 01,253, 84, 02 


< 4212 DATA 224, 113,00, 221, 115, 01 


1215 DATAZZ1, 114,02, 253, 112, 00, 253, 117 
1217 DATA 01,253, 114,02, 193, 11, 120 
1220 DATAI77, 32, 174,193,221, 35, 221, 35 
1222 DATA221,35, 11,120,177, 32, 157 

1225 DATA253,225,P01:’POP IY FD Ef 


1230 PRINT: PRINT 


1290 REM 

1295 REM НІШ DELETING ИИН | 

1300 PRINT: PRINT Е 
1305 INPUT*LEFTS$( OR RIGHTS (5 L/R* Hf: IFH$="L" ТНЕНЕ 31 ОЕ1.5Е 1320 
1310 INPUT"START";N: ТАРШТ"ЕНО "у M: INPUT"CHARS DELETED" L 

1315 FORISNTOH: PS (X) SRIGHTS (P$C 2, LEN(P$(X) )-L) :NEXT: 6070200 
1320 INPUT*START*;N: INPUT"END" ; М: INPUT"CHARS DELETED";L 

1325 FÜRI-NTOM: P$ (Y) LEFTS (P$ (1) LEN (P (Y) ) -LU: NEXT: 6070200 


1400 REM 44444 EDIT GROUPS ІНІ 
1405 PRINT&O, "SPACE=NEXT FILE: FULLSTOP=PREVIOUS FILE 


г 1410 PRINT"CONZA FOR RETURN TO VIEW": 60701425 


1415 CLG:PRINT8128, "5: FORH-ITUJ4Q:PRINTH;* ";P$(H) NEXT 
1420 PRINT128, ",: FÜRH-XTOX4B: INPUT" — ";P$(H) NEXT: 60701405 


с 1425 KSz INKEYS: Кӛз INKEYS 


1430 IFK$z* "THENX=X+9: 60701415 

1455 IFK$z", "THENCLS: RETURN 

| 140 IFK$z", "ТНЕМХ={-9: :IFKCLTHENGUTOLASOELSEL ALS: BOTOLAIS. 
` 1445 60701425 

1450 Х=1:60701415 

















Now не will deal with the SAVE and LOAD routines. Using 


, Ext Bas. we don't need a routine ta change a filenaae. It 


accepts <<""+6$>> and INPUT commands makes 6$ equal the 
filename y^u type in. First it displays the disk DIR and 
STATUS, and print LOADING or SAVING, and prints T=xxx . Then 
_ asks for паве, and froa/to. If you are saving the whole file, 
from 1 to T and press RETURN for both these.C will then be 1 
. and P will be T. If you want otherwise then put your figures 
in. As 45/278 etc. 

When LOADING if you have only saved the one file froa 1 
to T, you can just press RETURN as before. If you have 
<(<hanked >>> files then load fros 1 to (whatever DIM is.). 
It will load the file and BREAK showing QUT OF DATA. Just 
type 6010 200. Then VIEW and find what the last DATA nuaber 
is. Then use the <<0>> comaand and set T to that figure. 


If after coming here you change your mind then hit RETURN 
and you are back in MENU. As it loads or saves it will print 


а running string of numbers. These are the file nuabers being 


acted on. If you want to stop at any place just use 
CTRL+BREAK. It will stop and show READY with a flashing 
CURSOR. Now type <<<60TO 200 >>>. NEVER repeat NEVER use RUN. 
If you, do you will loose the file. Why? Because it goes to 
the CLEAR COMMAND and does as іс told. To clear 18000 ог 
whatever. 


Lines 10 T0 20 offers a safeguard to doing that 
accidentally, ~ as it will list line 20. This always applies. 
If the READY shows then 6070200. If you want to clear the 
file far the next ane then <<RUN 50»). | 


If you have a file too long to handle in one sitting, 
then you can SAVE it. When you сове back to continue you can 
then save the second part with the saae filename, and it will 
be added onto the first one. ‘ 
AS REM 11111111 SAVING ппиппи 
50 CLS: PRINT: STATUS: XDIR: 
"T:PRINT@420"SAVING" 

55 INPUT"NAME":6$: INPUT"FROMN/TO";C,P: IFC=OTHENC=1:P=T 
80 OPEN" +G$, 1: РЕЖ" "+63 | | 


PRINT8405, "T= 


65 FOR. IzCtoP: PRÉ" * 45$, PS CT) : PRINT 8B 
440, IS NEXT: CLOSE" * «6$: 6010200 

80 REM 0111111 LOADING ИНИН | 
85 CLS: XDIR: PRINT8420, "LOADING": INPUT" NAME" ; 6$: 


IFG$=""THENI35 
90 OPEN""+6$,0: INPUT"FROM/TO*;C,P: IFC-OTHENSSELSE100 
95 INE" *465, ДЫ) 

100 ЕОВІ=СТОР: 108" "46$, P$ (I): PRINT@440, 1: NEXT:T=P 
105 CLOSE**+6$:6070200 


PRINTER / JOYSTICK CONNECTIONS LOOSE? 


Here 
needed. - | 


It is sent in by Ian Niedzwiecki, 


articles. Thanks Ian. 


article. 


is an idea to cure that trouble, 


and one that is very much 


who in the past has sent in many 


I must point out that it 15 ап IDEA and not a construction 


If you are swaping the printer and Joysticks often, you soon find 
you have trouble with the connections being loose. 


This 


idea leaves both the printer and joysticks always connected. 


No change over. But don't try to use them both at same time. 


The only comment I have is, if you disconnect the Joysticks, then. 
have some form of cover over the Pins to prevent shorts. Perhaps 


something fashioned out of a cassette case. (ed). 
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To Јеугпск IF, 


AT То PRINTER 


To Јоу5ћек ҺЕ 
NE 


1 Х — — 
- | p t То PRINTER 
To vz. REASSEMBLED Hole SLIGHTLY 

PRINTER ТОР EMLARGED To AccEPT 
МЕМ? CABLE 


1. open UP PRmTER INTERFACE UNIT — YZ END, 
2. SOLDER A LENGTH ор RiBBon cABLE (Оваџт 9") To WHERE THE 


SOCKET Pins|LEGS Come THROVGH THE PCB. 


3. ON THE OTHER END OF THE CABLE SOLOER А Рок OF PCB 
WITH GOLD FINGERS ON IT, THIS END PLUGS INTO THE 


Joystick 1. Ё, 
4 STRAIGHTEN Our NEW CABLE ANMO ӨРТЕР SLIGHTLY FNLAR GING 
“yoke! ww THE INTERFACE СОУЕК ~ REASSEMBLE 


15. 
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TRADING POST 


FOR SALE 


Word proc. cartridge, DATA CASSETTE RECORDER (DR20) 
JOYSTICKS, PRINTER INTERFACE. 
Reasonable offer. | 
John Luxton, 
Р.О. Box 99. Bigdeudin Old. 4421. 
Ph. 071-27-1515. 


I have the residue of DSE VZ defunct computers for sale. 
They have various unspecified faults, but are mostly 
complete. The price is $20 ea. (Fd). 


OTHER V Z USER GROUPS 


H.V.V.Z.U.G DISKMAG 

P.0.Box 161 Р.0. Вох 600. 

JESMOND NSW. 2299. Taree NSW. 2430. 
CENT.VIC.COMP.Club | BRISBANE VZUG 

24 Breen St. 63 Tingalpa St. 
BENDIGO VIC 3550 WYMUM West. 01714. 4178 


Graeme Bywater 
Р.0. Вох 388 
Morley М.А. 6062 


How to write adventure programs. 


David has advised that pressure of school work has delayed his 
articles. 


I trust this is only a temporary hold-up, and that we will get 
them later. 


I would ask that those that were asked to give him feeddback will 
be patient. (Ed). 


WANTED WANTED WANTED 


A member wishes to use WOULF’S EXBASIC in conjunction with the VZ 
Sprite generator. 


He wants to use the PLOT command, but when he tries the computer 
resets. 


Who will be the first to tell us HOW ? (Ed). 


MACHINE LANGUAGE ОЗРЕНА 


BY DON DOWER. 


ONE OF THE MOST PRACTICAL APPLICATIONS ОҒ ASSEMBLY-LANGUARGE PROGRAMMING 18 
TO CARRY OUT SOME GF THE OPERATIONS OF а BASIC PROGRAM. 

THE PROCEDURE FOR CALLING A USR SUBROUTINE IS VERY SIMPLE. ALL YOU HAVE 
TO DO 15 TO PUT THE ADDRESS GF THE LOCATION YOU WANT TO CALL INTO LOCATIONS 
308582 % 30863.SUPPOSE THAT THE ENTRY ADDRESS IS 7DOOChex).THE FIRST BYTE IS 
7D AND THE SECOND OOH.7DH IS 125 AND ООН 15 0. YOU MUST THEREFORE POKE о 
INTO 20842 AND 125 INTO 308463.THEN THE EXECUTION OF А "x-LUSR(OND " STATEMENT 
WILL CAUSE а CALL TQ LOCATION 7DOOH TD BE EXECUTED? 
IF YOU WANT THE USE SUBROUTINE TD OPERATE UPON VARIABLES USED BY THE BAST 


PROGRAM. YOU NEED TO TELL IT WHERE THOSE VARIABLES ARE LOCATE.THIS IS — 


PURPOSE OF THE УВЕРТЕ STATEMENT. VARPTR (CX) RETURNS THE ADDRESS OF THE FIRS 
BYTE OF THE VARIABLE X. INTEGER VARIABLES REQUIRE 2 BYTES,SINGLE PRECISION 
VARIABLES 4,DOUBLE PRECISION 8,АМО STRINGS 5 PLUS THE LENGTH OF THE STRING 
(0 TO 255 BYTES) PEEK (VARPTR(X))GETS THE ACTUAL VALUE ITSELF BUT AN 
ASSEMBLY-LANGUAGE SUBROUTINE WILL USUALLY WANT THE ADDRESS RATHER THAN THE 
DATA. | 

THE ONLY PROBLEM WHITH PASSING а УВЕРТЕ ARGUMENT TO A USR SUBROUTINE COMES 
WHEN YOU NEED TO FASS MORE THAN ONE OF THEM,SO THAT YOU MUST USE THE 
"PORE'METHOD MENTIONED ABOVE. IN THIS SITUATION YOU нау TO BREAK DOWN THE 
VARPTR ADDRESS INTO THO BYTES AND POKE THEM INTO THE RESPECTIVE 
LOCATIONS. HERE HE CAN USE AN EXTRA INTEGER VARIABLE TO SIMPLIFY THE 
PROCESS.IN THE FOLLOWING EXAMPLE. SUPPOSE THAT YOU WANT TO PASS THE ADDRESS 
OF THE VARIABLE X TO А USR SUBROUTINE BY POKEING IT INTO LOCATIONS 30862 & 
30863. YOU CAN USE AN EXTRA VARIABLE FOR THIS PURPOSE. 

| 10 DEF INT Y 2G | Y=VARPTR CX) E ^ GO РОКЕ 
50852, PEER (VARPTR CY?) 40 PORE 50823, PEEK (VARPTR (У) +1) 
PEER (VARPTR O3 CONTAINS THE FIRST BYTE OF THE ADDRESS OF X, AND 
PEEE (VARPTR(CY)+1) THE SECOND BYTE.Y MUST BE DEFINED AS A INTEGER,BUT X MAY 
BE ANY TYPE OF VARIABLE. 

IF THE VARIABLE WHOSE ADDRESS YOU WANT TO PASS TO THE ASSEMBLY—-LANGUAGE 
PROGRAM 15 SUBSCRIPTED, YOU NEED ONLY PASS THE ADDRESS OF THE FIRST LOCATION 
USED (USUALLY SUBSCRIPT O DOE 1}.YOU CAN THEN RELY ON THE FACT THAT IF Ata) 
IS STORED IM DNE SERIES DF BYTES,A(1) WILL BE IN THE NEXT,ACS} WILL FOLLOW 
&(1),E6TC.THE AMOUNT YOU HAVE TO INCREMENT THE ADDRESS DEPENDS UPON THE ТҮРЕ 
OF VARIABLE.FOR INTEGERS, SINGLE AND DOUBLE PRECISION NUMBERS, THIS AMOUNT IS 
2,4 AND 8 BYTES RESPECTIVELY.THE DATA ITSELF 15 STORED IN THESE CONTIGUOUS 
LOCATIONS. FOR STRINGS, THE AMOUNT IS 3 BYTES.THE IMFORMATION STORED THERE ІЗ 
THE LENGTH OF THE STRING IN THE FIRST BYTE,AND THE ADDRESS IN THE FOLLOWING 
TWO BYTES. THE DATA ITSELF IS STORED ELSEWHERE, IN THE STRING SPACE AREA. 

ЛЕ YOU WANT TO PICK UP THE ARGUMENT WHEN ENTERING THE ASSEMBLY—-LANGUAGE 


SUBROUTINE, YOU MUST FIRST CALL OA7FH.TO FASS THE ARGUMENT ВАСЕ TO THE BASIC 


PROGRAM, YOU MUST TERMINATE THE PROGRAM WITH A JUMP то LOCATION CASAH.IF You 
DON'T WANT TO RETURN AN ARGUMENT, YOU SIMPLY RET (RETURN) AT THE END OF YOUR 


SUBROUTINE. 


THE FOLLOWING BASIC PROGRAM BUILDS RANDOM STRINGS FROM 2 Та 21 CHARACTERS 
& THEN ALPHABETIZES THEM. FOR THIS PROGRAM TO WORE YOU MUST FIRST LOAD ANY 
EXTENDED BASIC PROGRAM THAT CONTAINS THE "“DEFINT","DEFSTR",  & VARPTR 
COMMANDS. 
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A 


50 


FOR 1=0 
МЕХТ 1 


рата221,42,16,114: 


> DATA2553,78,00: 


REM XXLOAD XB FIRSTXX 


CLEAR 429 
DEFINT B-Z 


K=O 


CLS: РОКЕЗ0777, 1: РОКЕЗО7 77, 


N=10 
DIM АФС) 


FüR 6-0 TO 112 
READ D 


POKE??400+6,D 

NEXT 
FÜRI-OTON:A$(CD-"" | 
J-RND C12) +9: РОЕК=1 ТОЈ 


AS CI) -A$ (1) +СНЕФ (RND (26) +64) 


NEXT K^ 

PRINT 1:8%0) 

MEXT I 

P-VARPTR (AS CO?) Е 
PRINT VARPTR (аф (0) ) 

РОЕЕ 29200. PEEK (УАВРТЕ (P) ) 


РОКЕ29201 „РЕЕК (VARPTR CP) +1) 


РОКЕ 20852, 216 

POKE 208685.114 

REM 728DH 

X-USR (М) 

TO M:PRINTI;A$(CI) 


DATAZOS,127,10:'CALL OAZF 
DATA 253,229 :'PUSH IY 
DATA229:?PUSH HL 
DATA193:'PüP BC 


DATA197:" PUSH ВС 


рата221, 229: PUSH ІХ 


рата255, 229: POP LY 
DATA197:'PUSH BC 
DATA253,35:* INC IY 
рата255, 55: ° INC IY 
DATAZSS, 35:7 INC IY 
рата221,70,00:°10 BO XO? 


"LD IX(7210) 


"LD C{(IY+0) | 


Editor’s Comment. 


This is the 


I have received fro 
have been published rete 

Members may borrow 
back issues. 


sorting 
DATABASES. You will find it 
5%%%%%%%%% ЕФ. 


1: POKESO744,1. 


routine I 
starting at line 1100. 
445 %%%%%%%%%% 


Аз DATAZ21,110,01:"LD 11) | 
DATA221,102,02: 'LD HOIXZ) 
DATA252,94,01:" LD ECOIY*1) 
DATA?253,85,02: *LD рстужа) 
DATAZA:^LD ADE) 
рата170: * CP CHL) 
патазе, 
DATAS2, 45: JE NZ, 2D 
DATA17:" INC DE 
DATALS: 
патаяо,05:7 JE 2:09 
DATAZS: 
ратаіё, 243: 7 Dd МУ, БЕЗ 
рата24, 56:° JE 
пата221, 70,00: 
DATA221,110,01: 
7 DATAZZ1, 102,02: 
 DATA253,78,00:' LD ст) 
рата255, 94,01: 
> DATAZSS, 86,02: 
DATA221,113,00:"LD 
DATA221,115,01:'LD 
DATA221,114,02: 10 
рата255, 
рата2э5, | 
DATAZSZ, 116,02: °LD 
DATA193: 
DATA11:"'DEC BC 
DATA120:"LD A,B 
DATA177::"U0R C 
= DATAS2, 
DATai193:*PUP BC 
DATA221,55:" INC IX 
DATA221,33:" 
рата221, 352° 
ратаї1і:° DEC BL 
DATA120:'LD А,Б 
рата177: 06 С 
DATAS2, 127: ЈЕ 
> ратагаз, 229: 


DATAZOL: RET 


refered 


11: ЈЕ C,OB 


"DEL C 
“ТЫС HL 


24 | 
"ұр встх+о) 
"LD (ІХ? 
"LD HCIX+2) 


"LD EC) 
"ұр DCLY+2} 
(ІХ). С 
(IX+1),E 
CIX+2), D 
(IY+0}, B 
(ТҮЗ, 


112,00: 71 
117,01: 710 


"POP BC 
174: JR NZ,AE 


TMC ТА 
NC IX 


м7.90 


"POP IY 


to in the article on 


m Bob Kitch, his list of all the articles that 
ring to the м2200—500. 


this list, 
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